

----------------------------------------------------
SELECT tb_afrad 
wn=ALLTRIM(thisform.text1.Text)
LOCATE FOR VAL(wn)=id_num
IF FOUND()
MESSAGEBOX("C???? ????I",0,"E?E??")
ENDIF
thisform.Refresh
----------------------------------------------------

w1=thisform.text1.Value
IF EMPTY(w1) then
thisform.text1.SetFocus
ENDIF

-----------------------------------------------------